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1 .  INTRODUCTION 

A  mathematical  model  of  the  Sea  King  Mk  50  helicopter,  as  used  in  the  ASW  (Anti- 
Submarine  Warfare)  role,  has  been  developed  by  ARL  to  a  Royal  Australian  Navy  (RAN) 
task  requirement.  This  model,  which  was  developed  originally  on  a  DEC  System  10 
computer  using  the  simulation  language  "CSMP-10(ARL)M  (Refs  1-3),  has  been  described 
in  general  terms  in  Refs  4  and  5.  Full  descriptions  of  the  main  components,  namely  the 
Aerodynamics/  Kinematics,  Control  Systems,  and  Cable/Sonar  may  be  found  in  Refs  6-1 1. 

Assuming  a  basic  knowledge  in  using  the  Elxsi  6400  computer,  the  use  of  the  computer 
programs  associated  with  the  Sea  King  model  is  described  in  three  user  manuals.  Part  I 
(this  one)  shows  how  to  set  up  the  model  and  run  it  in  its  basic  modes  without  dunking 
sonar.  The  model  is  first  run  in  ASW  mode  as  a  means  of  trimming  the  aircraft,  i.e.  'flying 
to  trim',  and  then  in  either  ASW,  ASE  (Auto  Stabilizing  Equipment),  or  pilot  modes  to 
simulate  a  desired  manoeuvre.  Part  II  (Ref.  12)  provides  a  catalogue  of  the  many  flight 
trials  data  files,  shows  how  to  access  and  process  the  flight  data,  and  then  how  to  run  the 
mathematical  model  with  inputs  obtained  from  the  flight  data.  Part  HI  (Ref.  13)  shows 
how  to  use  the  dunking  sonar  model  and  demonstrates  the  use  of  a  cable  graphics  program. 

Transfer  of  the  Sea  King  model  to  the  Elxsi  6400  computer  in  1985  also  necessitated 
transfer  of  the  simulation  language.  Details  on  retrieving  the  files  necessary  for  the 
modelling  component  of  the  language  are  therefore  given  here,  as  well  as  a  brief  outline 
description  of  the  basic  structure  of  the  language. 

2.  BASIC  STRUCTURE  OF  SIMULATION  LANGUAGE 

CSMP-10  (ARL)  is  a  block  oriented  simulation  language  consisting  of  two  parts,  the 
modelling  program  BOMMP  (Block  Oriented  Mathematical  Modelling  Program)  and  output 
program  TRANS  (Translation).  The  model  is  expressed  in  coded  form  with  the  aid  of 
block  diagrams  comprising  a  number  of  linked  modules,  called  blocks,  each  one 
representing  a  particular  function  or  operation.  The  language  incorporates  'user-defined' 
blocks  written  as  Fortran  subroutines,  which  enables  complex  mathematical  processes  to  be 
handled  more  conveniently.  Each  user-defined  subroutine  may  reference  any  number  of 
'called'  subroutines  at  a  lower  level.  The  Sea  King  model  takes  particular  advantage  of  this 
feature,  with  complete  component  models  represented  in  this  way. 

In  the  coding,  the  model  is  represented  by  three  types  of  statements  -  configuration, 
parameter,  and  function.  The  configuration  statements  describe  the  blocks  used  and  specify 
the  way  in  which  they  are  linked  together.  The  parameter  statements  specify  numerical 
values  of  parameters  associated  with  the  configuration  statements,  such  as  integrator  initial 
conditions,  while  the  function  statements  specify  the  coordinate  pairs  used  to  generate  a 
function.  The  output  program  part  of  the  language  is  capable  of  producing  graphical  and 
tabular  results  in  a  variety  of  formats. 

3 .  FILE  RETRIEVAL  FROM  MAGNETIC  TAPE 

All  the  files  required  for  compiling,  binding,  and  running  the  Sea  King  mathematical 
model,  together  with  related  programs,  may  be  found  on  ARL  magnetic  tape  M228,  and  are 
listed  in  Appendix  A. 
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To  retrieve  these  files,  a  request  is  made  to  the  operator  for  tape  M228  to  be  mounted:1 


:MOUNTTAPE  M2 2  8  -W 


***Frcm  operator  at  09:57:  Mag  tape  mounted  on  tape2 

:TAPES 

Device  Statue 

device  user  volute  type  density  ring 


tapel 

tape2  tC28  ANSI  6250tpi  No 

tape3 

No  outstanding  mount  requests  for  user  ae.amey 

Once  the  tape  is  mounted,  one  file  may  be  obtained: 

:  RESTORE  SEAKINGMASTERFILES/ filename  vol=M228  margwflat  seq=l 
-unload  +creator 

If  all  the  files  in  Sequence  1  are  required,  add  the  -t-subtrees  switch: 

: RESTORE  SKAKINGMASTERFILES  vol=M228  merge=flat  seq=l  -unload 
-•■creator  -tsubtrees 

If  a  list  of  files  is  required,  the  shellfile  ’READTAPE'  should  be  restored  first.  This 
shellfile,  listed  below,  allows  a  number  of  files  to  be  restored  without  having  to  repeat  the 
long  pathname  contained  on  the  command  line. 

:LXST  READTAPE 

- SHET.imE  TO  RESTORE  LIST  CF  FILES  FROM  MEAPE 

parm  file  +list  +req 

- Init  shell variables , ' files 1  -pathname, 'count'  is  a  counter 

set  filelist  1 '  +declare 
set  count  1  -(declare 

set  filelist  [cat  SEAKnOBOTERFILES/  t 
[file  [oount]]]  -(append 

—  Start  of  loop  to  add  lint  of  files  to  pathname 
lakel  loop 

set  count  [eval  count+1] 

—  If  another  file  in  there  add  to  pathname  otherwise  restore  files 
if  [file  (count J]  then 

set  filelist  [cat  " ,  SFAKEJGMASTERF HES / n  & 

[file  [count]]]  +append 

goto  loop 
else 


1  For  computer  terminal  input  included  in  this  document,  messages  typed  by  the  user  are  'hewn  in  bold 
typ.-. 
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goto  restore 
end  if 

-  Restore  files 

label  restore 

restore  [ f ilelist ;  noquote ]  vol=H228  merge*flat  SEQ^l  -uni  +cre 

Below  is  an  example  showing  how  READTAPE  is  used  to  retrieve  all  the  files 
necessary  for  the  simulation  language  modelling  program  BOMMP. 

:RKADTAPB  BIHDBOHMP,BOMMPLIB,CHKOTR.F,CSMPA.F,CSMPB.F,CSMPC.Fr 

DUSKR.F,FCHBCK.F,  INTEG.F,  MAXN2.F,PTXME.F 

BDCeOMP 

BCHPUB 

chkrpr.f 

osrrpa.f 

C3BJC  >.f 

CSt®C.F 

duser.f 

fchecJc.f 

Integ.f 

maln2.f 

ptine.f 

**********  BESTOt®  StlMARY  ********** 

11  files  restored. 

0  files  not  restored. 

0  directories  restored. 

0  directories  not  restored. 

All  requests  were  found  on  tape. 

4 .  DERIVING  THE  SEA  KING  MODEL 

The  Sea  King  mathematical  model  SEAKING86  is  obtained  by  combining  the 
modelling  program  BOMMP  with  the  Sea  King  component  modules.  The  Fortran  source 
files  for  each  arc: 

a)  Modelling  Program  BOMMP 

CHKUPR.F  -  Checks  for  upper  case  letters 
CSMPA.F 

CSMPB.F  "  BOMMP  routines 
CSMPC.F 

DUSER.F  -  Dummy  user  subroutines 

FCHECK.F  -  Checks  if  file  exists 

INTEG.F  -  Integration  methods 

MAIN2.F  -  BOMMP  executive  routine 
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b)  Sea  King  Component  Modules 

BLADIN.F  -  Inputs  control  movements  from  flight  data 

CABGEN.F  -  General  functions  required  by  cable  model 

CABLE.F  -  Generalized  cable  model 

MJW6.F  -  Outputs  specific  data  relating  to  aerodynamics  module 

PILOT.F1  -  Interactively  accepts  control  movements 

SKA86.F  -  Aerodynamics  model  -  including  interface  with  configuration 

statements 

SKC83.F  -  Cable  model  -  including  interface  with  configuration 
statements 

SKS86.F  -  Systems  model  -  including  interface  with  configuration 
statements 

VFLUID.F  -  Fluid  velocity  profile  required  by  cable  model 


Where  no  changes  arc  to  be  made  to  Fortran  source  files,  the  object  files  on  M223  may 
be  used.  If  changes  are  to  be  made,  the  altered  file  should  be  compiled  as  shown  below  for 
CHKUPR.F: 

: FORTRAN  CHKtJPR  +F66  +SYM  +XREF  -OPT 
ELXSI  FORTRAN  4.3a  04/08/86  10:31:21 

0  errors  In  CHKJPR 
ccnpilaticn  time:  0.4  CPU  seconds 
lines  per  minute:  2987 
real  time:  27  seconds 

%  CPU-  1 

23  lines  in  this  compilation 
Total  errors  In  this  ccnpilaticn :  0 

The  modelling  program  object  files  are  first  bound  using  the  shellfile 
BINDBOMMPLIB2  to  form  library  object  files  BOMMP.LIB.O  and  DUSER.LEB.O,  The 
listing  and  execution  of  BINDBOMMPLIB  is  as  follows: 


1  This  module  is  not  currently  operational  on  the  Elxsi  computer. 

2  If  BOMMP  were  to  be  used  as  a  stand  alone  simulation  program,  the  shellfile  BINDBOMMP  should  be 
used.  The  listing  and  execution  is  as  follows: 

:LIST  BINDBOMMP 

-  -  SKEUflLE  TO  BIND  FILES  NECESSARY  FOR  CREATING  BOMP 

ECHO  :BIND  MADffi,CSMPA,CSMPBtCSMPC,INrEG,DUSER,FCHECK,CHKUPR,PT:ra:,bfile=BCM'5P 
BIND  MAIN2  CSMPA  CSMPB  CSMPC  INTEG  DUSER  FCHECK  CHKtJPR  PTDC  bfile-BCMiP 

:  BINDBOMMP 

:BOO  .MN2  CSM>A  CSMPB  CSMPC  INTB3  CUSER  FCHECK  CHKUPR  PTIME  bfile-BCIWP 
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-.LIST  BINDBOMMPLIB 

- Shellfile  to  create  library  files  necessary  for  Sea  King  Math  Model 

ECHO  :MAK£LIB  MAJN2,  CSMPA,  CSMPB,  CSMPC,  INTEG,  FCHECK,  CHKUPR,  PTI>E,  If  ile-BCM-P 
MAKEUB  MAIN2  CSMPA  CSMPB  CSMPC  INTEG  FCHECK  CHKUPR  PTIMS  If  ile=BOM> 

ECHO  :MAKELIB  DUSER 
MAKELIB  DUSER 

IBINDBOMMPLIB 

:  MAKEUB  MAIN2  CSMPA  CSMPB  CSMPC  INTEG  FCHECK  CHKUPR  PTIME 
:  MAKEUB  DUSER 

The  object  files  for  the  Sea  King  component  modules,  together  with  the  above  library 
object  files  are  then  bound  using  the  shellfile  BINDSEAKING,  the  listing  and  execution  of 
which  is  as  follows: 

:LXST  BINDSEAKING 

ECHO  :BH©  BOM?  .LIB,  SKA86,  BLN)  IN,  SKC83, CABLE,  CAB3N,  VFLUID,  i 
SKS86,MJW6,PniIr,IJBFILESH)USER,bfile-SEAKIN386 
BOB  BOW.LIB,  SKA86,  BIAD  IN,  SfC83,CAESI£,CABGEN,  VFLUID,  & 

SKS86,MJW6,  PILOT  LLBFILES-DUSER  bfile-SEWONG86 

:BINDSEAKING 

:BHO  BCMf.LIB  SKA86  BLADD-I  SKC83  CABLE  CABGEN  VFLUID  SKS86  tUW6  PILOT 
TJBFH£S-DUSER  bfile-SEAKDG86 

5.  RUNNING  THE  SEA  KING  MODEL 
5.1  Standard  Input  Files 

Whenever  the  model  is  run,  the  following  three  files,  examples  of  which  are  on  tape 
M228,  are  required  as  input: 

BOMMP.IN  -  Non-interactive  command  file  for  BOMMP 
DATA.HEL  -  Helicopter  input  data,  mainly  in  NAMELIST  form 

???7?.MOD  -  Helicopter  model  information  in  form  of  configuration, 

parameter,  and  function  statements  -  must  have  5  character 
name  with  .MOD  extension 

File  BOMMP.IN  is  shown  below: 

:LIST  BOMMP.IN 

IOG2 : 19ASW_I 

OCN 

PAR 

FUN 

MAN 

The  CONflguration,  PARameter,  and  FUNction  commands  cause  the  configuration, 
parameter,  and  function  statements  to  be  read  from  the  model  input  file,  which  is 
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19ASW.M0D  in  this  case.  The  MANual  command  returns  from  non-interactive  to 
interactive  (i.e.  manual)  control  and  allows  further  changes  to  be  made  to  the  model 
statements  before  integration  and  output  parameters  are  specified.  These  can  all  be  included 
in  the  file  BOMMP.IN  when  running  completely  non-interactively,  e.g.  in  batch,  provided 
the  MANual  command  is  removed. 

The  following  three  helicopter  input  data  files  are  also  available  on  tape  M228,  the 
required  one  of  which  should  be  renamed  DATA.HEL  before  running  SEAKING86: 

19200. HEL  -  19200  lb  AUW  (see  Appendix  B) 

17800.HEL  -  17800  lb  AUW 

16600.HEL  -  16600  lb  AUW 

For  the  above  files,  there  are  the  following  corresponding  model  files  for  ASW  mode: 
19ASWMOD  -  19200  lb  AUW  at  hover  (see  Appendix  Q 

17AS8.MOD  -  17800  lb  AUW  at  88  kn 

16ASWMOD  -  16600  lb  AUW  at  hover 

As  well  as  being  used  directly  with  SEAKING86,  these  files  may  be  convened,  using 
the  program  SKMODE,  to  a  form  suitable  for  either  ASE  or  pilot  mode  (see  Section  5.3). 

5.2  Trimming  in  ASW  mode 

The  achievement  of  steady  conditions,  with  all  time  derivatives  equal  to  zero,  is  defined 
to  be  trimmed  flight  Because  it  is  generally  desirable  to  begin  any  manoeuvre  from  this 
condition,  the  model  is  run  first  in  ASW  mode  for  the  specified  flight  parameters,  thus 
allowing  the  Systems  component  model  to  'fly  to  trim'. .  An  example  of  this  is  now  given. 

The  following  flight  parameters  are  assumed: 

Aircraft  AUW  =  185001b 
Aircraft  forward  velocity  =  40  kn 

From  M228,  the  following  files  arc  retrieved  and  edited  as  indicated: 

BOMMP.IN  -  Unchanged 

19ASWMOD  -  Unchanged 

19200.HEL  -  Rename  to  DATA.HEL,  edit  parameters  RHOA,  SPSND, 

GAMMA,  GAMMAT,  HMASS,  A,  B,  CC,  and  HR 

For  sea-level,  ISA  conditions  assumed, 

Air  density,  RHOA  =  0.002377  slug/ft3 
Speed  of  sound,  SPSND  =  1116.45  ft/s 

If  density  and  speed  of  sound  are  required  for  a  given  atmospheric  condition,  the 
program  ATMOS,  on  tape  M228,  may  be  used  (see  Appendix  D). 

From  Appendix  B,  where  RHOA  =  0.002199  slug/ft3. 

Main  rotor  Lock  number,  GAMMA  =  9.95 
Tail  rotor  Lock  number,  GAMMAT  =  4.72 
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Since  Lock  number  is  proportional  to  air  density,  then  for  RHOA  =  0.002377  slug/ft3. 


GAMMA  =  10.76 
GAMMAT  =  5.10 

Given  an  AUW  of  18500  lb, 

18500 

Helicopter  mass,  HMASS  =  g-  =  575  slugs 
and  from  Appendix  E, 

Roll  2nd  moment  of  inertia,  A  =  14275  slug  ft2 
Pitch  2nd  moment  of  inertia,  B  =  48375  slug  ft2 
Yaw  2nd  moment  of  inertia,  CC  =  39150  slug  ft2 


Before  running  SEAKING86,  the  vertical  and  longitudinal  aircraft  centre  of  gravity 
(c.g.)  positions,  CGz  and  CGx  respectively,  must  be  calculated  for  the  new  AUW  of 
185001b.  These  positions  are  defined  as 

CGz  =  (c.g.  water  line) 

CGx  =  (c.g.  fuselage  station)  -  (datum  fuselage  station) 


where  water  lines  and  fuselage  stations  ( in  inches)  arc  shown  in  Appendix  F.  The  model 
requires  the  c.g.  positions  to  be  input  in  the  form  of  parameters  HR  (see  Namelist  'AER'  of 
data  file  in  Appendix  B)  and  XCH  (Blk  252  in  model  file  -  see  Appendix  C).  HR  (in  feet) 
is  the  vertical  displacement  of  the  rotor  hub  (water  line  232)  above  the  c.g.  and  XCH  (in 
feet)  is  the  longitudinal  displacement  of  the  c.g.  forward  of  the  datum  (fuselage  station 
267.4  -  see  loading  table  for  the  ASW  role,  from  Ref.  14,  in  Appendix  G),  i.e. 

232  -  CGz 

HR=  — n — 


XCH  = 


CGx 

IT 


For  an  AUW  of  18500  lb,  CGz  is  estimated  by  interpolating  data  supplied  by  Westland 
Helicopters  Limited,  shown  in  Table  1: 


TABLE  1 

Vertical  Centre  of  Gravity  Position,  CGz 


t 


_  r  „„  (  18500  -  15000  M 

CGz  -  155  -  [  (155  -  143)  x  ^  19200  -  15000  'J 

=  145  inches 

hR.(«2jjl«)  .7.2ft 

The  Sea  King  Operating  Data  Manual  (Ref.  14)  provides  loading  tables  for  each  of  the 
major  aircraft  roles  (e.g.  ASW,  troop  transport),  which  may  be  used  to  calculate  CGx  for  a 
given  AUW.  The  loading  table  for  the  primary  role  (i.e.  ASW  with  2  torpedoes)  is 
included  here  as  Appendix  G.  The  table  gives  a  breakdown  of  the  weight  and 
corresponding  pitching  moment  about  the  datum  (fuselage  station  267.4),  for  each  item  of 
role  equipment  and  for  the  fuel  as  it  is  distributed  between  the  forward,  centre,  and  aft  fuel 
tanks  (while  filling  the  aircraft,  and  also  as  fuel  is  usee);  below  each  component  is  the 
cumulative  effect  of  all  preceding  components.  CGx  may  thus  be  calculated  by  taking  the 
total  pitching  moment  ami  dividing  it  by  the  AUW. 

For  this  example,  it  is  assumed  the  aircraft  is  configured  as  for  the  flight  trials  (Ref.  12) 
i.e.  ASW  role,  less  two  torpedoes,  fitted  with  flight  data  acquisition  package.  Using 
known  weights  and  positions  of  the  data  acquisition  package  and  two  observers  measured 
during  the  flight  trials. 

Aircraft  weight  with  two  crew  and  two  observers,  less  fuel  =  148001b 
Moment  about  datum  for  data  acquisition  package  =  -  6160  lb  in 
Moment  about  datum  for  two  observers  =  -  31000  lb  in 
Moment  of  Sea  King  (less  2  torpedoes)  about  datum  =  +  43687  lb  in 
Aircraft  moment  less  fuel  =  43687  -  6160  -  31000  =  +  6527  lb  in. 

Fuel  weight  =  18500  -  14800  =  3700  lb 

From  the  fuel  usage  section  of  Appendix  G,  3700  lb  of  fuel  is  distributed  amongst  the 
fuel  tanks  in  the  sequence  shown  in  Table  2  (reading  from  bottom  to  top  in  loading  table). 
The  net  distribution  in  each  tank  and  the  c.g.  position  aft  of  the  datum  is  then  given  in  Table 
3,  from  which. 

Moment  due  to  fuel  =  1700  x  (-52.1)  +  687  x  (-3.7)  +  1313  x  (49.9)  =  -25593  lb  in 

Adding  this  moment  to  the  'aircraft  moment  less  fuel', 

Total  aircraft  moment  =  6527  -  25593  =  -  19066  lb  in 
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TABLE  2 

Sequence  of  Fuel  Distribution 


Tank 

Weight  of  fuel  (lb) 

Cumulative  total  (lb) 

Aft 

1208 

1208 

Forward 

1208 

2416 

Centre 

456 

2872 

Forward 

492 

3364 

Centre 

231 

3595 

Aft 

105* 

3700 

*  Balance  of  fuel  (<  11521b) 


TABLE  3 

Net  Fuel  Distribution 


Tank 

Weight  of  fuel  (lb) 

C.g.  aft  of  datum  (inches)* 

Forward 

Centre 

Aft 

1208  +  492  =  1700 

456  +  231  =  687 

1208  +  105  =  1313 

(31468)/C604)  =  -  52.1 
(1040)/(-281)  =  -  3.7 
(-  57485)/(-1152)  =  49.9 

•  Equals  from  any  case  of  each  tank  in  loading  table  of  Appendix  G 


Thus 


CGx  = 


total  aircraft  moment  19066 

SOW  "  "D55TO  ~ 


1.03  inches 


XCH  =  -  =  0.09  ft 

The  model  is  now  ready  to  be  run.  Note  that  the  commands  ITT,  PAR,  and  FUN  are 
used  interactively  to  read  in  modifications  to  statements  (such  as  the  value  of  XCH), 
already  read  in  non-interactively  through  the  command  lines  in  BOMMP.IN. 


:  searings 6 

MAX  BLK  NO.  =  500 

MAX  NO.  OF:  I  S  T1  BLKS,  U  BLKS,  F  BLKS  =  100,25,25 

SEA  KING  -  HOVER  -  3000  ft  -  ASW  MODE  -  19200  lb  AUW 

•TIT 

TITLE  (LIMIT  60  CHRS) 

SEA  KING  -  40  kn  -  ISA,  SEA-LEVEL  -  ASW  MODE  -  18500  lb  AUW 
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•PAR 

PARAMETERS  : 


BLK,  PI,  P2,  P3 
252,0.09 

•FUN 

FUNCTIONS  : 

Bill  NO.  “  51 
OOOFO  PAIRS  : 

0,0 

cooro  PAIR  (  .OOOOE+OO, 

500.67.512 

axfO  PAIR  <  5.0000E+02, 

700.67.512 

Bin  NO.  -  80 
COORD  PAIRS  : 

0,3000 

COORD  PAIR  <  .OOOOE+OO, 

500.200 

COORD  PAIR  (  5.0000E+02, 

700.200 

Bin  no.  - 
model  cxmpiete 

*INT 

DTOUJ  P ARAMS;  ICWER,  UPPER,  INTERVAL  -  0,700,0.02 
•OUT 

o/p  Bins 

A 

O/P  PARAMS;  %  CHANS:  RECPD,  INTERVAL  -  0.0001,100 

•LOG3 :  TRIMl_N 

MODEL  O/P  TO  10G3:TRIM1.MD 

•STO 

TRIM1  -MOD  NOT  CN  DSK 


Aircraft  c.g.  position  -  XCH  (ft) 

Set  aircraft  forward  velocity  (ft/s) 

.OOOOE+OO)  DELETED 

Note:  40  kn  -  67.512  ft/s 

.OOOOE+OO)  DEIFIED 

Set  aircraft  height  (ft) 

3.0000E+03)  DEIFTED 
3.0000E+03)  DEIFTED 


CON,  PAR,  FUN,  CR  ALL  :  A 

•LOG2  :  TRIMl _ I 

MODEL  I/P  FPCr:  U0G2: TRIMl. MOD 
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*L0G1 :  TRXM1_0 

BLOCK  O/P  TO  L0G1  tTRIMl.DAT 

*GOE 

TRIM1  .DAT  NOT  CN  DSK 
**  RUNNING  ** 

TRDQ.HEL  NOT  CN  DSK 

(s)  (Ft)  (Ft/m)  (Knots) 

Tire  Alt  RoC/D  Speed  Slip  %Torq 
.0  3000.  -.3  -.0  -.00  90. 

%Colctv  %Oyclic 

F-A  Lat 
-94.31  -25.06  -2.49 

A.S.E.  Channels  : 

PITCH  -  On 
ROLL  -  CO 
TAW  -  On 
ALT  HOLD  -  RAD 

A.S.W.  Mode  : 

TRAN 


[Cyclic  Trim  - 

.0  3000. 

EN3E] 

-.3 

-.0 

-.00 

90. 

1.0 

3000. 

-48.8 

-.1 

.12 

80. 

2.0 

2998. 

-198.1 

-.2 

.23 

73. 

3.0 

2994. 

-292.0 

-.1 

.17 

77. 

4.0 

2989. 

-323.0 

.0 

.19 

79. 

5.0 

♦ 

• 

2983. 

-316.5 

.3 

.26 

82. 

• 

698.0 

200. 

-.0 

40.0 

I 

o 

o 

44. 

699.0 

200. 

.0 

40.0 

-.00 

44. 

700.0 

200. 

-.0 

40.0 

.00 

44. 

PUN  CPU  TIME  : 

13  Min.  21, 

.53  Sec. 

•RET 

•STO 

TRIM!  .M3)  NOT  CN  DSK 


OCN,  PAR,  FUN,  CR  ALL  :  A 

*EXI 


Fortran  program  executed  STOP  statement  0 
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In  the  example  above,  model  output  was  displayed  on  the  terminal  screen  every  1 
second.  If  desired,  the  user  may  adjust  the  output  time  interval,  which  is  the  first  parameter 
of  Blk  240.  If  no  output  to  the  screen  is  desired  the  parameter  of  Blk  99  is  set  to  zero. 

After  running  the  model,  the  following  five  files  are  created: 

FROMAN.OUT  -  Record  of  user  input  commands 

DATA.CHD  -  Output  of  data  read  from  DATA.HEL 

TRIM1.CHR  -  Debugging  information 

TRIM  1  DAT  -  Output  data  -  used  as  input  to  TRANS 

TRIMIJVIOD  -  Model  file 

For  multiple  runs,  FROMAN.OUT  may  be  concatenated  with  BOMMP.IN  (after 
deleting  the  MANual  command),  and  used  to  run  the  model  completely  n on-in teractively. 
DATA.CHD  (see  Appendix  H)  echoes  the  data  read  in  from  DATA.HEL.  TRIM1.CHR 
contains  debugging  information  if  the  DEBug  command  is  used;  otherwise  it  is  empty. 
TRIM1.DAT  is  the  output  data  from  the  model  run,  and  is  used  as  input  to  program 
TRANS  in  order  to  obtain  tabular  or  plotted  results.  The  example  below  on  using  TRANS 
prints  the  pitch  attitude  (Blk  282)  and  torque  (Blk  212)  to  the  screen. 

:TRANS 

(TRANS  version  date  ll-MRR-86] 

I/P  FILQJAM3  -  TRIM1 

SEA  KINS  -  40  kn  -  ISA,  SEA-IEVEL  -  ASW  (CDE  -  18500  lb  AUW 

I/P  FH£  RECORDED  ON  12-Jan-87  AT  16:04:39 

INTQ3I  INT  -  .0000E+0O;  RUN  CPU  TD«  -  13  MIN  21.53  SEC. 

TM5  FBCM  .OOOOE+OO  TO  7.0000E+02  IN  STEPS  <F  1.0000E+02 
*TZM 

TIME  PARAMS;  KXER,  UPPER,  INTERVAL  -  0,700,700 
*PRC 

printog  Dr  oauMJS  : 

ELKS 

282,212 

is  o/p  to  Try  becpd  :  y 

*GOE 

**  FUM4DJ3  ** 

‘  Time  Blk#282  Blk#212 

. OOE+OO  4.35E+00  8.99E+00 
7.00E+00  4.94E+00  4.43E+00 
*EXI 
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As  a  consequence  of  the  RETain  and  STOre  commands  entered  prior  to  terminating  the 
above  run  of  SEAKING86,  the  file  TRIM  1. MOD  represents  the  updated  model  with 
integrator  initial  conditions  set  at  terminating  values.  The  file  can  therefore  be  used  in  this 
case,  following  minor  modifications,  as  the  starting  point  for  trimmed  flight  at  18500  lb 
AUW,  40  kn  (67.512  ft/s)  forward  speed,  and  200  ft  altitude  (nominally  sea-level  for 
atmospheric  conditions).  The  modifications  required  are  to  the  aircraft  set  forward  speed 
(Blk  51)  and  set  height  (Blk  80)  function  blocks,  which  need  to  be  set  to  maintain  the 
aircraft  at  constant  velocity  and  height  This  may  be  done  either  interactively  or  simply  by 
editing  TRIM  1. MOD  appropriately  to  include  in  the  FUNctions  section: 


51 

.000OE+00 

6.7512E+01 

5.0000E+02 

6.7512E+01 

80 

•OOOOE+OO 

2.0000E+02 

5.0000E+02 

2 .  OOOOE+02 

5.3  Standard  Manoeuvres 

The  Sea  King  Model  may  be  flown  in  any  of  three  standard  modes,  Le.  ASW,  ASE,  or 
pilot  mode.  In  ASW  mode,  the  flight  control  system  flies  the  aircraft  stabilizing  it  in  roll, 
pitched  yaw,  while  holding  a  given  heading  and  altitude.  In  ASB  mode,  the  pilot  flies  the 
aircraft  while  the  flight  control  system  stabilizes  die  aircraft  in  roll,  pitch,  and  yaw.  In  pilot 
mode,  the  pilot  flies  the  aircraft  with  no  input  from  the  flight  control  system. 

In  the  previous  section,  it  was  shown  how  to  obtain  an  'ASW  model  file,  starting  from 
one  of  the  master  files.  However,  this  model  file  has  many  parameters  which  have  deviated 
from  a  zero  value  during  the  trimming  procedure.  A  program  called  SKMODE  is  available 
to  make  these  values  zero  and/or  change  the  mode  from  ASW  to  ASE  or  pilot  mode.  An 
example  is  shown  below  on  how  to  use  SKMODE  to  obtain  model  files  for  each  of  the 
three  modes,  creating  model  files  18ASW.MOD,  18ASE.MOD,  and  18PIL.MOP. 

:  SKMODE 

INPUT  FUE  (ASW  M3DE  .HE  FUE)  :  TRIM 
MXEL  FUE  REQUIRED  (ASW,  ASE,  PXL  OR  ALL)  :  ALL 
OUTPUT  FIIE  (ASW  MODE  .MOD  FILE)  :  18 ASW 

77ASW.MCD  TITLE  :SKA  TOWS  -  40  kn  -  ISA,  SCA-LIVKL  -  ASW  MODS  -  18500  lb  AUW 
OUTPUT  TOE  (ASE  MXE  .MOD  FIIE)  :  18ASS 

77ASE.MCD  TITLE  :SKA  TORS  -  40  kn  -  ISA,  SCA-IXVZL  -  ASX  MODS  -  18500  lb  AUW 
OUTPUT  FUE  (PHOT  MODE  .ME  FIIE)  :  1BPIL 

77PIL.MCD  TITIE  :SSA  RISC  -  40  kn  -  ISA,  SEA-LEVSL  -  PILOT  MODS  -  18500  lb  AUW 


Examples  of  how  to  use  these  model  files  are  shown  in  the  following  sections. 

5.3.1  ASW  Mode 

In  Section  5.2,  the  ASW  mode  was  used  to  'fly  to  trim',  ramping  the  aircraft  set 
forward  speed  and  height  functions  over  a  500  second  time  interval  from  0  to  40  kn  and 
3000  to  200  ft,  and  then  over  a  further  200  second  interval  to  stabilize  the  trim.  It  can  be 
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seen  from  Figure  1,  which  shows  the  timing  of  the  flight  control  system  in  ASW  mode, 
that  this  trim  case  does  not  represent  a  realistic  segment  of  a  true  ASW  manoeuvre.  The 
example  now  given  for  the  ASW  mode  represents  the  'transition  down'  phase  and  is 
realistic. 

Firstly,  BOMMPJN  is  edited,  replacing  19ASW  with  18ASW: 

:LIST  BCMMP.d 

LOG2 : 18ASW_I 

OCN 

PAR 

FUN 

MAN 


Set  exit 
velocity 


Set  exit 
height 


Fig.  1  Timing  of  Flight  Control  System  in  ASW  Mode 


Assuming  the  aircraft  begins  the  transition  1  s  after  beginning  the  run,  the  set  forward 
velocity  and  height  function  blocks  in  the  model  file  18ASW.MOD  should  be  modified  as 
shown  directly  below,  either  interactively  when  running  SEAKING86  (as  done  in  the 
example  below)  or  by  editing: 


51 

•OOOOE+OO 
1. OOOOE+OO 
7.9000E+01 
5.0000E+02 

80 

•OOOOE+OO 
1. OOOOE+OO 
6.3000E+01 
5.0000E+02 


6.7512E+01 

6.7512E+01 

.OOOOE+OO 

.OOOOE+OO 


2 . 0000E+02 
2.0000E+02 
4 . 0000E+01 
4.0000E+01 
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The  model  is  now  run: 

:SEAKING86 
MAX  BLK  NO.  -  500 

MAX  NO.  OF:  I  &  T1  HIXS,  U  BIXS,  F  BIXS  -  100,25,25 

SEA  JONG  -  40  Jen  -  ISA,  SEA-IXVEL  -  ASW  MIG  -  18500  lb  AIM 
*TIT 

TITIE  (LIMIT  60  CHRS) 

SKA  KING  -  TRANSITION  DOWN  -  ASW  MODE  -  18500  lb  AON 
*FUN 

FlWCTICNS  : 

BIX  NO.  -  51 
OOCFD  PAIRS  : 


0,67.512 

OOCFD  PAIR  <  . OOOOE+OO,  6.7512E+01)  DELETED 

1,67.512 

79,0 

500,0 

OOC TO  PAIR  (  5.0000E+02,  6.7512E+01)  CELETJE 

BIX  NO.  -  80 
OOCFD  PAIRS  : 

0,200 

OOCFD  PAIR  (  .OOOOE+OO,  2.0000E+02)  DELEJHJ 

1,200 

63.40 

500.40 

OOCFD  PAIR  (  5.0000E+02,  2.0000E+02)  EBLEISD 

BIX  NO.  - 
MODEL  OCMPIETE 

*INT 

INn  PARAMS;  LOWER,  UPPER,  INTERVAL  -  0,90,0.02 

*OUT 

O/P  BIXS 

A 

O/P  PARAMS;  %  CHANGE  REQRD,  INTERVAL  -  0.0001,0.5 

*LOG3 : TRDWN_M 

MODEL  O/P  TO  LOG3:TREWJ.MD 

*STO 
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TRD4N.MCD 


NOT  CN  DSK 


CCN,  PAR,  FUN,  CR  ALL  :  A 
*LOG2 :  TRLWN_I 

MX1EL  I/P  FRCM  IOG2:TED»l.hED 

*LOGI : TPDWN_0 

BLOCK  O/P  TO  L0G1:TPCWJ.I5AT 

*GOE 

tbdwn.dat  NOT  CN  DSK 


**  FLMnNG  ** 

TKDW.HEL  NOT  CN  DSK 


(3) 

(Ft) 

(Ft/m)  (Knots) 

Time 

Alt 

BoC/D  Speed  Slip 

%Torq 

.0 

200. 

-.0  40.0  .00 

44 

%Colctv 

%Cyclic 

F-A  Lat 

-120.86 

-7. 

.42  -5.70 

A.S.E.  Channels  : 
PITCH  -  On 
BOLL  -  On 
YAW  -  On 
ALT  HOLD  -  BAD 

A.S.W.  Mode  : 
TRAN 


(Cyclic  Trim  - 

.0  200. 

EX£] 

-.0 

40.0 

.00 

44. 

1.0 

200. 

-.1 

40.0 

-.00 

44. 

2.0 

200. 

-49.9 

39.9 

-.10 

43. 

3.0 

198. 

-99.9 

39.8 

.12 

39. 

4.0 

196. 

-125.1 

39.7 

.30 

40. 

5.0 

194. 

-132.8 

39.5 

.27 

39. 

88.0 

40. 

-3.2 

-1.9 

-.45 

84 

89.0 

40. 

-2.7 

-1.9 

-.45 

84 

90.0 

40. 

-2.3 

-2.0 

-.43 

84 

RUN  CPU  TIME  :  1  Min.  52.46  Sec. 

*EXI 


Fortran  program  executed  STCP  statement  0 
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As  can  be  seen  above,  after  90  seconds  the  aircraft  has  completed  the  transition  but  is 
not  yet  in  a  trimmed  hover.  This  could  be  achieved  by  running  for  a  further  period  (e.g.  50 
seconds). 

5.3.2  ASE  and  Pilot  Modes 

Flying  the  model  in  ASE  or  pilot  mode  is  much  more  difficult  than  ASW  mode,  because 
the  user  must  input  commands  similar  to  those  input  by  the  pilot  on  a  real  Sea  King.  Since 
the  user  usually  has  had  no  helicopter  flying  experience  and  the  model  does  not  give  good 
cues,  it  is  difficult  to  ’fly*  the  model  in  ASE  mode,  and  extremely  difficult  in  pilot  mode. 
However,  the  model  may  be  more  easily  'flown'  in  these  modes  by  reading  control  inputs 
obtained  from  flight  data  (see  Ref.  12).  When  flight  data  is  not  used,  the  method  used  to 
’fly'  the  model  is  the  same  for  both  ASE  and  pilot  modes. 

The  method  used  is  a  trial-and-error  one,  where  the  control  inputs,  namely  the  cyclic 
stick  positions  (Blks  56  and  60),  collective  stick  position  (Blk  81),  and  the  pedal  position 
(Blk  72),  are  changed  from  integrator  to  function  blocks.  The  position  of  each  control  is 
then  input  at  specific  times  and  the  model  is  run.  The  results  can  then  be  observed  and  the 
control  positions  adjusted  to  give  the  desired  results. 

In  the  Sea  King,  a  stick  'beeping'  facility  is  used  to  trim  die  aircraft  when  flying  in  ASE 
mode,  this  being  the  recommended  mode  for  normal  flight  In  the  model,  this  facility  may 
be  used  by  first  changing  the  following  switches  into  function  blocks: 

Blk  77  -  SFWD 

Blk  78  -  SAFT 

Blk  67  -  SSTBD 

Blk  68  -  SPORT 

The  model  can  then  be  flown  with  small  inputs  via  the  beeping.  When  any  particular 
block  has  a  value  of  one.  the  beeping  is  turned  on,  while  a  value  of  zero  turns  the  beeping 
off.  For  more  information  on  the  aircraft  systems  see  Ref.  7. 

6.  CONCLUDING  REMARKS 

One  of  the  consequences  of  taking  a  number  of  years  to  develop  and  then  validate  a 
useful  mathematical  model  such  as  the  Sea  King  one,  is  that  by  the  time  the  process  is 
concluded,  the  software  methodology  is  out-of-date.  Greater  priority  is  then  likely  to  be 
given  to  gaining  a  return  on  the  investment  in  the  form  of  practical  applications  of  the 
model,  rather  than  in  rewriting  the  code.  The  simulation  language  CSMP-10(ARL)  was 
developed  in-house  at  a  time  prior  to  other  more  suitable  languages  such  as  ACSL 
becoming  available  at  economic  rates.  The  decision  to  continue  using  the  model  within  the 
framework  of  a  now  dated  language,  and  to  transfer  the  model  from  the  obsolete  DEC 
System  10  to  the  Elxsi  6400,  has  necessitated  adequate  documentation  in  the  form  of  these 
user  manuals. 


17 


i 


REFERENCES 

1.  Gilbert,  N.E.  and  Nankivell,  P.G.,  "The  Simulation  Language  CSMP-IO(ARL),'' 
ARL  Aero  Note  362,  May  1976. 

2.  Gilbert,  NJB.  and  Nankivell,  P.G.,  "Further  Information  for  Users  of  the  Simulation 
Language  CSMP-10(ARL),"  ARL  Aero  Note  375,  May  1978. 

3.  Nankivell,  P.G.  and  Gilbert,  NJL,  "A  General  Purpose  Output  Program  for  Use  in 
Simulation,"  ARL  Aero  Note  367,  December  1976. 

4.  Guy,  C.R.,  Williams,  MJ.,  and  Gilbert,  N.E,  "Sea  King  And-Submarine  Warfare 
Helicopter  Mathematical  Model,"  Mech.  Engg.  Trans.,  I.E.  Aust.,  Vol.  ME7,  pp. 
23-29,  April  1982. 

5.  Guy,  C.R.,  Williams,  MJ.,  and  Gilbert,  N.E.,  "A  Mathematical  Model  of  the  Sea 
King  Mk  50  Helicopter  in  the  ASW  Role,"  ARL  Aero  Report  156,  June  1981. 

6.  Williams,  MJ.  and  Amey,  A.M.  "A  Mathematical  Model  of  the  Sea  King  Mk  50 
Helicopter  Aerodynamics  and  Kinematics,"  ARL  Aero  Tech  Memo  379,  June  1986. 

7.  Guy,  C.R.  "Sea  King  Mk  50  Helicopter/Sonar  Dynamics  Study:  A  Simplified  Control 
Systems  Mathematical  Model,"  ARL  Aero  Report  152,  February  1979. 

8.  Guy,  C.R.  "Sea  King  Mk  50  Flight  Control  System:  A  Mathematical  Model  of  the 
Flying  Controls,"  ARL  Aero  Note  388,  February  1979. 

9.  Guy,  C.R.  "Sea  King  Mk  50  Flight  Control  System:  A  Mathematical  Model  of  the 
AFCS  (Autostabilizer/Autopilot  Model),"  ARL  Aero  Note  389,  February  1979. 

10.  Guy,  C.R.  "Sea  King  Mk  50  Flight  Control  System:  A  Mathematical  Model  of  the 
AFCS  (ASW  Mode),"  ARL  Aero  Note  393,  June  1979. 

11.  Gilbert,  N.E.  "A  Mathematical  Model  of  the  Dynamics  of  the  Cable  and  Sonar 
Transducer  for  a  Sea  King  Mk  50  Helicopter,"  (to  be  published). 

12.  Amey,  A.M.  and  Gilbert,  N.E,  "A  User's  Manual  for  the  ARL  Mathematical  Model 
of  the  Sea  King  Mk  50  Helicopter  Part  II  -  Use  with  ARL  Flight  Data,"  ARL  Aero 
Tech  Memo  407,  October  1988. 

13.  Gilbert,  NJ3.  and  Amey,  A.M.  "A  User’s  Manual  for  the  ARL  Mathematical  Model 
of  the  Sea  King  Mk  50  Helicopter :  Part  in  -  Use  of  Dunking  Sonar  Model,"  ARL 
Aero  Tech  Memo  (to  be  published). 

14.  "Operating  Data  Manual  -  Sea  King  Mk  50,"  A.P.  (RAN)  300-8-2. 


18 


APPENDIX  A 
Files  on  Tape  M228 


The  following  files  are  on  Sequence  1  of  magnetic  tape  M228,  under  the  pathname 


'SEAKINGMASTERFILES': 

/atnos 

/CablePlot/cabxtr . 0 

/integ.o 

/atmos.f 

/CahlePlot/CUBE.F 

/main2.f 

/atnos.o 

/CablePlot/CUBE.o 

/roain2 ,0 

/MMDS. OUT 

/CablePlot/NEGSK.®A 

/mjw6.f 

/Bncecwp 

/CablePlot /PLTCAB.F 

/mjw6.o 

/BIN3BCMPUB 

/CablePlot /PLICAE .  0 

/pilot,  f 

/BM3SEAKING 

/CahlePlot/SCNAR.F 

/pilot. 0 

/bladin.f 

/CablePlot/SCNAR.  o 

/ptime.f 

/bladin.o 

/chkupr.f 

/ptime.o 

/BO*& 

/chkupr.o 

/RERDT APE 

/BOMMJB.O 

/canpa.f 

/SEAKIN386 

/cabgen.f 

/csnpa.o 

/SKa86.f 

/catgen.o 

/csnpb.f 

/SKa86.o 

/cable. f 

/csnpb.o 

/SKc83.f 

/cable. o 

/csnpc.f 

/SR083.O 

/CablePlot 

/caipc.o 

/SRtode 

/CablePlot/BINDCABGRA 

/duser.f 

/SHmode.f 

/CablePlot/CABGRA 

/DUSER.lib.o 

/SRnode.o 

/CahlePlot/CABGRA .  F 

/duser.o 

/SKs86.f 

/CabLePlot/cabgra .0 

/fcheck.f 

/SK386.0 

/CatalePlot/cabplot 

/fcheck.o 

/vflutd.f 

/CablePlot/cabxtr . f 

/integ.f 

/vfluid.o 

The  following  files  are  on  Sequence  2  of  magnetic  tape  M228,  under  the  pathname 

'seakingfiles': 

/16600.hel 

/Refine /Not  chFilter .  f 

/Ref  ine/Rextra  .0 

/16ASW.M0D 

/Refine /NcfcchFilter . 0 

/Ref  ine/TSub87 .  f 

/17800.HEL 

/Refine/PreNotch .  f 

/Refine/TSub87 .  o 

/17AS8.MD 

/Refine/PreNOtch . 0 

/Trans 

/19200.HEL 

/Refine /Rl.f 

/Trans/BDBTRANS 

/19ASW.MD 

/Refine/Rl.o 

/Trans/Chkupr . f 

/80.SCA 

/Refine/R2 . f 

/Trans /ChkUpr . 1 

/BCIMMN 

/Refine/R2.o 

/Trans/CWcUpr.o 

/DATA.  HEX 

/Ref ine/R3 . f 

/Trans /Extra .  f 

/HCNER.SCA 

/Pefine/R3 . 0 

/Trans/Extra.l 

/PLOT 

/Refine/R4.f 

/Trans/Extra. 0 

/REDAIA 

/Refine/R4 .0 

/Trans/Rnane.f 

/Refine 

/Refine/R5 . f 

/Trans/Rnane.l 

/Reflne/BINDLABCAL 

/Refine/R5.o 

/Trans/Rname .  0 

/Refine/BDBREFINE 

/Refir>e/R6.f 

/Trans /TRM*S 

/Refine/CAL86 

/Refine/R6.o 

/Trans/TRANSlb.  f 

/Reflne/ChkUpr .  f 

/Refine/REFIN 

/Trans/TRANSlb.  1 

/Ref  ine/Chkqpr .  0 

/Refine/RHFINE 

/Trans/TRANSlb .  o 

/Refine/Ding,  f 

/Refine/REFBMASTER 

.  /Trans/TRANS2b.f 

/Refine/Ding . 0 

/Refire/REFINPSntEPIACED 

/Trans/TRANS2b.l 

/Refine/LatCal 

/Ref ine/Rename . f 

/Trans /TRANS2b . 0 

/Refine/IabCal . f 

/Ref ine/Rename . 0 

/TRANS. BIX 

/Ref ine/LabCal . 0 

/Ref ine/Rextra . f 

/TRANS.  LAB 
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APPENDIX  B 
Data  File  19200.HeI 


SAER 

G-32.2,  RHQA-O. 002199,  RHCW-1.984,  SPSND-U05.26 
WftSS-596,  A-14162,  B-49282,  CC-39776,  EIT-10800 

OOEE-O.823,  THETEA1— 0.139,  GW*ft-9.950,  DELTA-O.012,  R2-31,  Z£TA>0.0339,  SKJ^-0.078 

THSH— 0.0698,  BLM4-5,  EXAPPA-0. 305,  EK3-0.08,  EX4-0.  001903,  OC5-0.16 

CMMS1V0.77,  GM*ftM.72,  SIQ«>0.224,  RT-5.21,  BLTb-6 

fUOSS-1.04,  REMSEP-209,  SHPfftX-^778,  GRRAP-6.127 

EKI-2,  EH-0,  sm-19.4,  STV-21.5,  STOF-0,  SX-102,  SY-415,  SZ-318 

SWUIA-7.20,  EXTH-1.0,  ALIBS-O.192,  ALIVS-0.192,  AJH-3.5,  A1V-4.35 

CEKEM). 343,  OWIM).77,  CD3M>.7,  CDIB-1.18,  CDIV-1.86 

AIf>HAL— 0.0873,  ALPWD—0.1047,  EEY4-0.S,  9C3AIf22S,  SOAL-230,  9MXH5000 
9CDUOO,  9CDHHP-0,  9CMXX),  9CM«K> 

HR-7.4,  HHOTO-15.5,  KM. 75,  EI^-36.5,  ELOH-36.3,  ELI^34.4, 

HIV-2. 5,  OTB-3.0,  HEW.  .5 
KIB-1.10,  KIHIR-1.4,KA1-1.0, 

NTBL1-12,  NTBL2-12,  WTBL3-10,  OTBL4-6 
$ 

THU  -  'FO4«r(10E)  •  -  WBU  VALDES 

0,  3.29,  0.35,  3.29,  0.79,  2.16,  1.05,  1.95,  1.22,  1.65 

1.57,  1.27 

TBL2  -  •rcmVTUOE) '  -  NTBL2  VALDES 

-O.J,  0,  0,  0.08,  0.085,  2.35,  0.15,  2.35,  0.30,  0 

0.50,  0 


THL3  -  ’KJMVTaOE)  *  -  NTBL3  VALUES 

0,  -4,  0.26,  -4,  0.44,  0,  1,  5.5,  1.57,  5.5 

TBM  -  'K»«raOE)  *  -  WIHL4  VALUES 
-200,  -62112.0,  0,  -15528.0,  200,  -62112.0 


SCAB 

ABALW5.56,  MALIW.28,  MALL-4.61,  VBALL-1.644 
OCAR-1.2,  CPCAM).0,  DCA&O.0467,  MSAR-0. 00686 
DRJNb-6.3,  ALPHAEW0.75,  THEPR-3.65,  PHHH-3.0 
SFIFST-6.3,  S1ASTVS.0,  SMID-1.3,  SRIGHK200.0,  ZTCL-2.0 
NL- 12,  K3CB-32,  HSR-30 
$ 

SRATIO  -  'FXHW(IOE)  •  -  NL-1  VALUES  WITH  SW  -  1 

0.0,  0.1,  0.1,  0.1,  0.1,  0.1,  0.1,  0.1,  0.1,  0.1 

0.1 

CXBTBL  -  ’F3*Kr<10£)  '  -  NCXB  VALUES 

0,  0,  35,  1.69,  45,  2.09,  50,  2.21,  55,  2.27 
65,  2.27,  70,  2.25,  80,  2.14,  85,  2.13,  105,  2.34 
115,  2.36,  120,  2.30,  125,  2.20,  140,  1.67,  160,  0.77 
180,  0 

CZBTBL  -  ’FCFfW(lOE)  '  -  NC20  VALUES 

0,  0.66,  15,  0.77.  25,  0.76,  35,  0.67,  45,  0.52 

55,  0.47,  75,  0.12,  95,  0.12,  110.  -0.19,  130,  -0.55 

145,  -0.77,  155,  -0.86,  165,  -0.83,  175,  -0.67,  180,  -0.66 
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$SYS 

CPI-0.7469,  CP2-0.37,  CP 3=0. 5,  CP4=0.68,  CP5«0. 003513,  CP6-0. 000217 

CP9-0.0541,  CPI 015. 31,  CP11=0.015,  CP12=0.013,  CP13-0. 00001,  CP  14  =0.0088,  CP1S=0. 00018,  CP1O0.154 
TP1-0.07,  ELAP-O.26915,  ELBP-0.02,  EJjCP=0.3054,  CPI 7-15. 3985,  CP18-1.0,  CPI 9=0, 16 
CR1 -0.4626,  CR2-1.4,  CR3-0.2,  CR4=0.13,  CR5=0. 007233,  CR6-0. 000227 

0^0.08377,  CR1015.31,  CR11-0.0185,  CRI2-0.018,  CR1 3-0. 000014,  CR14-0. 0047,  CR1 5=0. 00048.  CR16=0.166 
CRl 7-11. 586,  CR1&-1.0,  CR19-0.0694 

TR1-0.025,  TR2-0.1,  TR3-1.0,  El^ft-0. 26915,  EI£ft-0. 01326,  EICR-0,2909 

CY1-3.916,  CY2-0.0698,  CY3-89.0,  CY4-23.35,  CY5-4.378,  CY6-2.02,  CY7-0.3652,  CY8-1.0 

CY9-0.212,  CY10-0. 000371,  CY11-2.202.  CY12-1.0311,  CY13-165.9,  QAT-4.0,  ELCY-O.3035,  E2XW-0. 00175 

an-1.2973,  OC2-O.10B2,  CC3-0.1484,  CC4-1.961,  CC5-2.438 

CC6-0. 01064,  CC7-30.88,  CC8-1.0,  CC9-0.221,  CC1 0-0. 000561,  CC1 1-100. 00 

002-0.6466,  0&>£73.3,  CC14-165.9,  CC15-0.0,  EIA>4.0,  ELOOO. 005077,  E1MW-0.3141,  EIMOWJ.O 
ca 6-30. 88,  1HM).25,  TSMP-1.75,  TM*-0.25,  T5W-4.1 
$ 
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APPENDIX  C 
Model  File  19ASW.Mod 

CONFIGURATIONS 

SEA  KING  -  HOVER  -  3000ft  -  ASW  MXE  -  19200  lb  AUW 
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53 
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THE  STK 
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39 
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7 
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40 
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59 
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8 
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57 
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62 
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63 

U 
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12 
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28 
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65 
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36 
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13 
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29 
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66 

Tl 

153 
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14 

I 

30 

Z  HEE 

67 

K 
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23 

G 

11 
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68 

K 

S  PORT 
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1 
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I 

135 

96 

RI  OUT 
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U3 
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PSI  DOT 

70 

K 
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20 
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A0T 

75 

I 

140 

96 

D  AUX  Y 

21 

UO 
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FNUBRT 

76 

K 

PSI  TRM 

22 

UO 

25 

FNUBAR 

77 

K 

S  FVD 

26 

UO 

25 

THE  DOT 

78 

K 

S  AFT 

27 

UO 

25 

PHI  DOT 

79 

K 

S  YAW  PPR 

28 

UO 

25 

U  HEE 

80 

F 

1 

H  COM 

29 

UO 

25 

V  HEE 

81 

I 

142 

86 

8 

THE  C  ST 

30 

UO 

25 

W  HEE 

82 

Tl 

118 

ZH  Si 

31 

UO 

25 

PCT 

83 

Tl 

80 

HC  SM 

32 

UO 

25 

CT  T 

84 

I 

113 

96 

Z  ERI 

33 

UO 

2S 

E  LAMD  T 

85 

I 

143 

96 

D  AUX  C 

34 

UO 

25 

E  HU  T 

86 

U 

144 
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35 
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25 

U  HEH  CT 

87 

K 

ST  CS  PL 

36 

UO 

25 

V  HEH  CT 

88 

K 

PIT  TPM 

37 

UO 

25 

W  HEH  CT 

89 

K 

POL  TTO 

38 

UO 

25 

P  HEH  CT 

90 

K 

S  BLADE 

39 

UO 

25 

Q  HEH  CT 

91 

K 

S  DCP 

40 

UO 

25 

R  HEH  CT 

92 

K 

S  CAB 

41 

UO 
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AX  H 

94 

K 
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42 

UO 
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AY  H 

95 

K 

S  RADA 
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AZ  H 

96 

K 
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44 

UO 

25 

A0 

97 

K 

THE  TPM 

45 

UO 

25 

XI 

98 

K 

PHI  TRM 

46 

UO 

25 

CQH 

99 

K 

S  CONTROL 

48 

UO 

25 

Al 

100 

U2 

160 

U  ERR 

49 

UO 

25 

Bl 

101 

UO 
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AUTO  PL 

47 

U12 

1 

CHANIN 

102 

UO 

100 

DOP  P 

50 

Tl 

3 

AU  P  IN 

103 

UO 

100 

CAB  P 

51 

F 

1 

U  COM 

104 

UO 

100 

OLD  BIS 

52 

Tl 

51 

U  CO  SM 

'-0S 

UO 
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ASW  R 

22 


106 

uo 
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AUTO  RL 

166 

UO 

160 

THE  CH 

107 

uo 
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DOP  R 
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uo 
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uo 

100 

CAB  R 

168 

uo 

160 

THE  FUN 
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OLD  MS 
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AUTO  YL 
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RAD  A 
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THE  BALL 

116 

uo 

100 

OLD  TH  C 
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uo 
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uo 
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ASW  P 
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uo 
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uo 

160 

V  BALL 
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uo 
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S  AUTO  C 
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uo 

160 

H  BALL 
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uo 
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S  AUIO  P 
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U6 

25 

TQRQ  ID 
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uo 
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S  AUTO  R 

184 

uo 
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X  CH  H 
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uo 
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S  AUTO  Y 
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uo 
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XF 
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uo 
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uo 
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X 
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uo 
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THE  TOT 
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uo 
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S  AFT  H 

189 

uo 

183 

Z  TH 
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EM  Ml 

130 

uo 

100 

S  PORT  H 

192 

uo 
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uo 
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uo 
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WI 
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uo 
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D  PED  DT 
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uo 
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ALPHA 
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uo 
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S  D  PED 
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uo 
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E  MJ 
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uo 
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D  AY  DT 
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uo 
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E  LAM) 
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uo 
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S  PH  ST 
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uo 
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QS 
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uo 
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uo 
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uo 
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uo 

183 

HBLDTP 

144 

uo 
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SC  ST 
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uo 
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uo 
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uo 
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uo 
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uo 
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uo 
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BAR  A 
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uo 
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CHIFA 
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uo 
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uo 
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F 

1 
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uo 
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MW 
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F 

1 
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uo 

183 

B1W 
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U4 
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ro 
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uo 
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CAB  VEL 
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uo 
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uo 
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uo 
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uo 
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EL 
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uo 
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PHI  CAB 
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uo 
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227 

uo 
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uo 
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229 

uo 
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;  ENFUS 

230 

uo 
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;  QTCTvF 
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uo 
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;  EN 

232 

uo 
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;  BETA 

233 

uo 
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;  raw 

234 

uo 

183 

;  TTRCMP 

235 

T1 

19 
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236 

T1 
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/  BIS  LftG 
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T1 
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U10 
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K 
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0 
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;  BIS  UPDAT 
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R 
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0 
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R 
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0 
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R 
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0 
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R 
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K 

;  H  WEE 

251 

K 
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K 
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K 
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G 

56 
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G 

60 
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G 

81 
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279 

G 

6 

;  PITCH  RATE 
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G 

5 

;  ROLL  RATE 

281 

G 

7 

;  YAW  RATS 
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G 

3 

;  PITCH  AIT 

283 

G 

4 

;  ROLL  ATT 

284 

G 

2 

;  YAW  AIT 
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G 

201 

••PITCH  VANE 

286 

G 

232 

;SSLIP  VANE 

287 

G 

8 

;  LCN3  DCPP 

288 

G 

9 

;  LAT  DOPP 

289 

G 

14 

;  RAD  ALT 

290 

G 
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;  ROT  RPM 

291 

G 

14 

;  BAR  ALT 

292 

G 

243 

;  BIS 

293 

G 
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;  A1S 
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G 
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;  THETA  C 

295 

G 

247 

;  THETA  T 

296 
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0 

K 

294 

;  THETA  C75 

299 

G 

278 

300 

+ 

298  299 

;  RPM  REF 

301 

+ 

-290  300 

;  RPM  ERR 
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G 
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G 
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;  ERR  DIF 
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K 

;IDI£  F  FLW 
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+ 

304  313 

;TOT  f  flow 
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T1 
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;  FUEL  FLOW 
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T1 
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;  ET 
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W 

314  303 

;  TRQEN3 
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+ 

-183  315 

;  TRQ  DIF 
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G 
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;  CMS  DOT 
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+ 

323  11 

;  CM3SH 
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K 

;  DU6MY 
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K 
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G 

7 

;R  HEH  CN  3 
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R 
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7;EU3  R  HEH 

324 

K 

;  DCM4Y 

PARAMETERS 

2  -2.4596E-05 

3  7.5957E-02 

4  -5 . 7573E-02 

5  -2.3081E-O5 

6  -2.2543E-06 

7  4.0773E-05 

8  -4.5318E-04 

9  -2.5422E-03 

10  4.0077E-03 

11  2.1757E+01 

12  4 . 4524E+04 

13  -8 . 1356E+01 

14  -3 . 0000E+O3 

16  -3.2054E+01 

17  1.8467E+00 

18  2.4436E+00 

19  4.2206E+01 

20  4 . 9884E-02 

21  9 . 9992E-01 

22  1 . 0001E+00 

23  6.1270E+00 

26  9.5507E-08 

27  -1.9973E-05 

28  -1.3721E-04 

29  -2.3073E-03 

30  4.1698E-03 

31  6.4716E-03 

32  1.5678E-02 

33  -1.2400E-01 

34  5.6877E-06 

35  1 . 6713E-04 

36  -7.7081E-04 

37  2 . 1744E-04 

38  -5.8239E-05 

39  -2.7446E-05 

40  2.7602E-04 

41  1.6713E-04 

42  -7.7057E-04 
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43 

2.1362E-04 

44 

9.3214E-02 

45 

1.9266E-01 

46 

5.1187E-04 

48 

4.6509E-07 

49 

5.8785E-06 

50 

7 . 5957E-02 

7.0000E-02 

52 

4.2039E-44 

2 . 1000E+00 

54 

-4.4191E-04 

1.2400E+01 

55 

3.7602E-06 

1.2400E+01 

56 

-7.4250E-02 

59 

-1.2752E-02 

60 

-7.3700E-03 

61 

-7.3700E-03 

l.OOOOE+OO 

62 

-5.7572E-02 

2 . 5000E-02 

65 

7.6312E-05 

1.2400E+01 

66 

-2.6043E-03 

1.2400E+01 

69 

-8.5017E-03 

71 

-4.0524E-02 

72 

4.9108E-02 

75 

1.7631E-02 

81 

2.3803E-01 

82 

■OOOOE+OO 

4.5000E-01 

83 

3.0000E+03 

4 . 6000E+00 

84 

5.3873E+01 

85 

1.5603E-01 

91 

l.OOOOE+OO 

99 

l.OOOOE+OO 

101 

2.3262E-02 

102 

1.2754E-02 

104 

5 . 8917E-03 

105 

8.5206E-03 

106 

9.7203E-03 

107 

8.5206E-03 

109 

-1.0208E-02 

110 

-2.4596E-05 

111 

-1.7436E-01 

112 

2 . 9972E-01 

114 

8.3481E-01 

115 

5.8337E-01 

116 

3.1050E-01 

117 

1.2754E-02 

119 

l.OOOOE+OO 

121 

l.OOOOE+OO 

122 

l.OOOOE+OO 

123 

l.OOOOE+OO 

131 

7 . 5957E-02 

132 

-5.7573E-02 

133 

-9 . 8341E-08 

134 

-7.3700E-03 

135 

-5.7707E-07 

140 

-5.7478E-05 

143 

1.6078E-06 

146 

-2.1191E-03 

148 

-2.5143E-01 

149 

-3 . 0000E+03 

150  2.3895E-01 

151  -9.1998E-04 

153  -1.1473E-02 

154  2 . 1204E-03 

184  1 . 4564E+03 

185  1.6210E-08 

186  1 . 4564E+03 

187  -1.9539E+04 

188  4.3349E+02 

189  1.9258E+00 

190  -1.9104E+04 

191  -5.7763E+02 

192  6. 9906E+01 

193  -1.0478E+03 

194  -1.0777E+04 

195  -6 . 8161E+02 

196  2 . 5401E+03 

197  -1.6682E+00 

198  1.0478E+03 

200  -8.4412E+01 

201  1 . 6834E+00 

202  3.8060E-06 

203  -6.2570E-02 

204  3.0202E-tO6 

205  9.0456E+04 

208  -6.7297E+00 

209  -1 .5709E+00 

210  6.0828E-05 

211  7.4571E-02 

212  8.9864E+01 

213  -1-5625E+03 

214  6.2310E+03 

215  -4.6751E+03 

216  1.8840E-06 

218  1.1234E-01 

219  -1.0805E-02 

220  4.7101E-03 

221  1 . 0033E+00 

222  1.0000E+00 

223  2.7222E-01 

224  5.7773E+00 

225  1 . 8300E+02 

226  -4 . 7880E+04 

227  -2.7449E+01 
229  -6 . 3312E-01 

231  1.7117E+01 

232  -1.7472E+00 

235  4.2206E+01  3.0000E-01 

236  5 . 8922E-03  9.0000E-02 

237  -1.0209E-02  9.0000E-02 

240  1 . 0000E+00  2.0000E-01 

241  -l.OOOOE+OO 

242  -1.0731E-02 

244  -1.2397E-02 
246  2.5782E-01 
248  3.0243E-01 


l.OOOOE+OO 
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252 

-1.3000E-01 

304  3.0000E+02 

258 

4.0000E+01 

313  1.1629E+03  4.5000E-01 

269 

1.0000E-02 

314  5.6518E+04  1.S068E-01 

276 

5.7236E+01 

315  7.3745E-01  2.6255E-01 

277 

5.7296E401 

317  9.2600E-05 

278 

5.7296E+01 

321  -l.OOOOE+OO 

279 

5.7296E+01 

322  3 . 0000E-01 

280 

5.7296E+01 

281 

5.7296E+01 

FtNCIICNS 

282 

5.7296E+01 

24 

283 

5.7296E+01 

.OOOOE+OO 

•OOOOE+OO 

284 

5.7296E401 

5.0000E+02 

•OOOOE+OO 

285 

5.7296E+01 

286 

5.7296E+01 

51 

287 

5.9249E-01 

•OOOOE+OO 

•OOOOE+OO 

288 

5.9249E-01 

5.0000E+02 

•OOOOE+OO 

289 

-1. OOOOE+OO 

290 

4.7040E+00 

80 

291 

-1. OOOOE+OO 

•OOOOE+OO 

3.0000E+03 

292 

5.7296E+01 

5 . OOOOE+02 

3.0000E+03 

293 

5.7296E+01 

294 

5.7296E+01 

158 

295 

5.7296EH01 

•OOOOE+OO 

.OOOOE+OO 

296 

-6.0000EHX) 

5.  OOOOE+02 

•  OOOOE+OO 

298 

1.0018E402 

299 

5.0000E-01 

159 

300 

1.0300E+02 

•OOOOE+OO 

•  OOOOE+OO 

302 

2.5000E+02 

5.0000E+02 

.OOOOE+OO 

303 

4.8600E+01 

i 
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APPENDIX  D 
Using  Program  ATMOS 

A  description  is  given  below  on  how  to  use  the  program  ATMOS,  which  provides 
density  and  speed  of  sound  for  given  atmospheric  conditions.  ATMOS,  together  with  its 
Fortran  source  file  (atmos.f)  and  object  file  (atmos.o),  are  available  on  ARL  magnetic  tape 
M228. 

The  following  types  of  atmosphere  may  be  considered  by  setting  the  KEY  AIR  flag 
appropriately: 

KEY  AIR  =1  -  ICAO  standard  atmosphere 

KEY  AIR  =  2  -  ICAO  Sea-level  conditions  at  all  times 

KEY  AIR  =  3  -  Off-Standard  ICAO  atmosphere 

KEY  AIR  =  4  -  ARDU  Tropical  atmosphere 

KEY  AIR  =  5  -  ARDU  Sea-level  conditions  at  all  times 

KEY  AIR  =  6  -  Off-Standard  ARDU  atmosphere 

The  example  below  shows  how  ATMOS  can  be  used  to  find  the  air  density  and  speed 
of  sound  for  conditions  typically  found  during  the  Sea  King  flight  trials  (Ref.  12): 

:ATMOS 

SET  ATMOSPHERIC  FUG,  KEXMR  (1,2,3,4,5  OR  6) :  3 

SIN3LE  CAICULATICN,  OR  TABLE  (X  OR  2) :  X 

STATE  ALTITUDE  (IN  FEET) :  3000 

TEWERATCBE  OF  THE  DAT,  TDAY  (IN  DBS.  C )  :  IS 

CNH  CF  THE  DAT  (IN  MILLIBARS)  :  1025 

HEiarr  OF  THE  AIRFIEIT)  REFERENCE  POINT,  HAFR:  100 

The  results  are  stored  in  file  ATMOS.OUT  with  each  column  representing  the  following 
quantities: 

Column  1  -  Altitude  (ft) 

Column  2  -  Temperature  (Kelvin) 

Column  3  -  Pressure  (lb/ft2) 

Column  4  -  Density  (slug/ft3) 

Column  5  -  Speed  of  Sound  (ft/s) 

:LZST  ATMOS.OUT 

3000.0  282.40  1918.64  .0021988  1105.26 

If  the  option  of  a  table  was  chosen  in  the  above  example,  ATMOS  would  calculate  the 
atmospheric  conditions  from  sea-level  up  to  the  stated  altitude  (3000  ft)  in  steps  of  1000  ft. 
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APPENDIX  E 

Second  Moments  of  Inertia  vs.  AUW 

A  -  Roll  Second  Moment  of  Inertia 
B  -  Pitch  Second  Moment  of  Inertia 
CC  -  Yaw  Second  Moment  of  Inertia 

Second  Moments  of 
Inertia  (slug  ft2) 


A 

B 

CC 

18000 

52000 

44000 

17000 

51000 

43000 

16000 

50000 

42000 

15000 

49000 

41000 

14000 

48000 

40000 

13000 

47000 

39000 

12000 

46000 

38000 

11000 

45000 

37000 

10000 

44000 

36000 

14000  15000  16000  17000  18000  19000  20000  21000  22000 

All  Up  Weight 

(to) 
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APPENDIX  H 

Check  Data  File  DATA.CHD 


$aer 

, J  “32.2000007  ,  rhoa  -2.37699993E-03  ,rhow  =1.98399996  ,spsnd  =1116.44995 

,hmass  =575.0  ,a  =14275.0  ,b  =48375.0  ,cc  =39150.0  ,eit  =10800.0 

,onemze  =  .823000013  ,thetal  =-.138999998  ,garrrra  =10.7600002  , delta  =1.20000001E-02 

,r2  =  31.0  , zetaO  -3.39000001E-02  ,sigma  “7.80000016E-02  ,thsh  =-6.97999969E-02 

,blmn  =5.0  ,e)cappa  =.305000007  ,ek3  -7.99999982E-02  ,ek4  =1 . 90300005E-03 

,ek5  -  .159999996  ,onanzt  =.76999998  ,gannat  =5.0999999  , signet  -.224000006 

, rt  -  5.21000003  ,bltl  =6.0  ,fgloss  =1.03999996  ,rpreet  =209.0  ,shpnex  =  2778.0 

,grrat  =6.12699985  ,eki  =2.0  ,ei  =.0  ,sth  =19.3999996  ,stv  =  21.5 

,strf  =.0  ,  sx  =102.0  ,3y  =415.0  ,3z  =318.0  ,3nalla  =7.1999998  ,ekth  =  1.0 

,alths  -.192000001  ,altvs  =.192000001  ,ath  =3.5  ,atv  =4.3499999 

,odxf  =  .342999994  ,odyf  -.76999998  ,cdzf  =.699999988  ,cdth  =1.17999994 

,odtv  =  1.86000001  ,alphal  — 8.73000025E-02  ,alphad  —.104699999  ,eff4  -.5 

,3Clal  -  225.0  , scdal  =230.0  ,3cnbod  -5000.0  ,scduc  =.0  ,scdwep  =.0 

, same  =  .0  .senwep  =.0  ,hr  =7.1999998  ,hrot0  =15.5  ,ht  =4.75  ,elt  =36.5 

,elth  =  36.2999992  ,eltv  =34.4000015  ,htv  =2.5  ,dth  =3.0  ,hf  =1.5  ,kih  =1.10000002 

,  kihtr  =1.39999997  ,kal  -1.0  ,ntbll  =12  ,ntbl2  =12  ,ntbl3  =10  ,ntbl4  =  6  $ 


■0000E+00 

3.2900E+00 

3.5000E-01 

3.2900E+00 

7.9000E-01 

2.1600E+00 

1.0500E+00 

1.9500E+00 

1.2200E+00 

1.6500E+00 

1.5700E+00 

1.2700E+00 

-1.0000E-01 

.OOOOE+OO 

.OOOOE+OO 

8.0000E-02 

8.5000E-02 

2.3500E+00 

1 .5000E-01 

2.3500E+00 

3.0000E-01 

■OOOOE+OO 

5 . 0000E-01 

■OOOOE+OO 

.0000E4O0 

-4. 0000E+O0 

2.6000E-01 

-4. OOOOE+OO 

4.4000E-01 

.OOOOE+OO 

1.0000E+00 

5 . 5000E+00 

1 . 5700E+00 

5.5000E+00 

-2.0000E402 

-6.2112E+04 

.OOOOE+OO 

-1.5528E+04 

2.0000E+02 

-6.2112E+04 

$sy3 

,cpl  -.746900022  ,cp2  -.370000004  ,cp3  =.5  ,qp4  -.680000007 

,ep5  —3 . 51299997E-03  ,cp6  -2.16999993E-04  rcp9  -5 . 40999993E-02  ,cpl0  =15.3100004 

,cpll  =1 . 49999996E-02  ,cpl2  -1.30000002E-02  ,cpl3  -9. 99999974E-06 

,cpl4  =8 . 79999995E-03  ,c^>15  -1.80000002E-04  ,cpl6  =.153999999  ,tpl  -7 . 00000002E-02 

,elap  -.269149988  ,elbp  -1 . 99999995E-02  ,elcp  -.305400013  ,qpl7  =15.3985004 

,cpl8  =1.0  ,qpl9  -.159999996  ,crl  -.462599992  ,cr2  -1.39999997 

,cr3  -.200000002  ,cr4  -.129999995  ,cr5  -7.23299989E-03  ,cr6  -2.26999996E-04 

,cr9  -8.37699994E-02  fcrl0  -15.3100004  ,crll  -1.85000002E-02  ,crl2  -1.79999992E-02 

,crl3  =1 . 40000001E-05  ,crl4  -4 . 69999993E-03  ,crl5  “4.79999987E-04 

,crl6  -.165999993  ,crl7  -11.5860004  ,crl8  -1.0  ,crl9  -6.93999975E-02 

,trl  =2 . 50000003E-02  ,tr2  -.100000001  ,tr3  -1.0  ,elar  =.269149988 

,elbr  =1 . 32600003E-02  ,elcr  =.290899991  ,cyl  -3.91599988  ,cy2  -6.97999969E-02 

,cy3  -89.0  ,cy4  =23.3500003  ,cy5  =4.37799978  ,cy6  =2.01999998  ,cy7  =.365200012 

,cy8  =1.0  ,cy9  -.211999997  ,cyl0  -3.71000001E-04  ,cyll  =2.2019999 

,cyl2  =1.03110003  ,cyl3  =165.899993  ,elay  =4.0  ,elcy  -.303499996 

,elqy  —1.75000005E-03  ,ccl  =1.29729998  ,cc2  -.108199998  ,cc3  =.148399993 

,cc4  =1.96099996  ,cc5  =2.43799996  ,cc6  -1.06399999E-02  ,cc7  =30.8799991 

,cc8  =1.0  ,cc9  =.221  ,ccl0  -5.61000022E-04  ,ccll  =100.0  ,ccl2  =.646600008 

,ccl3  =273.299987  ,ccl4  =165.899993  ,ccli  =.0  ,elac  =4.0  ,eloc  -5.07699977E-03 

,elirax  -.314099997  ,elrnin  =.0  ,ccl6  =30.8799991  ,tnp  =.25  ,tsrrp  =1.75 

,tmr  =.25  ,tsmr  =4.0999999  $ 
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